home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / apidev / netdmo.exe / STARTUP.FRM < prev    next >
Text File  |  1993-12-10  |  3KB  |  112 lines
  1. Version 1.00
  2. BEGIN Form Startup
  3.     AutoRedraw   = -1
  4.     BackColor    = QBColor(1)
  5.     BorderStyle  = 0
  6.     Caption      = "Network Utility"
  7.     ControlBox   = -1
  8.     Enabled      = -1
  9.     ForeColor    = QBColor(0)
  10.     Height       = Char(19)
  11.     Left         = Char(10)
  12.     MaxButton    = -1
  13.     MinButton    = -1
  14.     MousePointer = 0
  15.     Tag          = ""
  16.     Top          = Char(2)
  17.     Visible      = -1
  18.     Width        = Char(60)
  19.     WindowState  = 0
  20.     BEGIN PictureBox Picture1
  21.         AutoRedraw   = -1
  22.         BackColor    = QBColor(1)
  23.         BorderStyle  = 1
  24.         DragMode     = 0
  25.         Enabled      = -1
  26.         ForeColor    = QBColor(15)
  27.         Height       = Char(15)
  28.         Left         = Char(2)
  29.         MousePointer = 0
  30.         TabIndex     = 1
  31.         TabStop      = -1
  32.         Tag          = ""
  33.         Top          = Char(0)
  34.         Visible      = -1
  35.         Width        = Char(56)
  36.     END
  37.     BEGIN CommandButton Command1
  38.         BackColor    = QBColor(7)
  39.         Cancel       = 0
  40.         Caption      = " OK "
  41.         Default      = 0
  42.         DragMode     = 0
  43.         Enabled      = -1
  44.         Height       = Char(3)
  45.         Left         = Char(25)
  46.         MousePointer = 0
  47.         TabIndex     = 0
  48.         TabStop      = -1
  49.         Tag          = ""
  50.         Top          = Char(15)
  51.         Visible      = -1
  52.         Width        = Char(10)
  53.     END
  54. END
  55. '$FORM Netdemo
  56.  
  57. SUB Command1_Click ()
  58. UNLOAD startup
  59. Netdemo.SHOW
  60. END SUB
  61.  
  62. SUB Form_Load ()
  63. Picture1.PRINT "This program is provided by WEST VALLEY SOFTWARE CO. "
  64. Picture1.PRINT "as a demo for NETWORK SYSTEM CALLS FOR BASIC."
  65. Picture1.PRINT "You may use and distribute this software and its"
  66. Picture1.PRINT "related files as long as none of the files are "
  67. Picture1.PRINT "altered. All files including the source code and the "
  68. Picture1.PRINT "compiled program must be distributed together. This"
  69. Picture1.PRINT "program is for demonstration purposes only and is"
  70. Picture1.PRINT "not for resale. "
  71. Picture1.PRINT "All liability regarding the use of this software is "
  72. Picture1.PRINT "solely with the user."
  73. Picture1.PRINT "This program assumes that this workstation is logged"
  74. Picture1.PRINT "into a Novell 2.X or 3.X server."
  75.  
  76. CurrentX = 2                        'Right Logo
  77. CurrentY = 16
  78. startup.ForeColor = 0
  79. PRINT "│      │"
  80. CurrentX = 2
  81. CurrentY = 15
  82. startup.ForeColor = 0
  83. PRINT "┌──────┐"
  84. CurrentX = 2
  85. CurrentY = 17
  86. startup.ForeColor = 0
  87. PRINT "└──────┘"
  88. CurrentX = 4
  89. CurrentY = 16
  90. startup.ForeColor = 15
  91. PRINT "WVSC "
  92.  
  93. CurrentX = 50                        'Left Logo
  94. CurrentY = 16
  95. startup.ForeColor = 0
  96. PRINT "│      │"
  97. CurrentX = 50
  98. CurrentY = 15
  99. startup.ForeColor = 0
  100. PRINT "┌──────┐"
  101. CurrentX = 50
  102. CurrentY = 17
  103. startup.ForeColor = 0
  104. PRINT "└──────┘"
  105. CurrentX = 52
  106. CurrentY = 16
  107. startup.ForeColor = 15
  108. PRINT "WVSC "
  109.  
  110. END SUB
  111.  
  112.